home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / UN_EHB_Spotlight.AMOS / UN_EHB_Spotlight.amosSourceCode < prev   
AMOS Source Code  |  1995-12-30  |  526b  |  33 lines
  1. Degree 
  2.  
  3. Screen Open 0,320,256,64,Lowres
  4. Flash Off : Curs Off : Cls 0 : Hide 
  5. For G=0 To 31 : Colour G,0 : Next 
  6.  
  7. Cls 0 : Ink 31 : Circle 30,30,30 : Paint 30,30
  8. Get Bob 1,0,0 To 61,61
  9. Hot Spot 1,$11
  10.  
  11. Cls 36
  12. For I=33 To 35
  13.    Ink I
  14.    For G=0 To 50
  15.       X=Rnd(300)
  16.       Y=Rnd(200)
  17.       Bar X,Y To X+Rnd(18)+1,Y+Rnd(54)+1
  18.    Next 
  19. Next 
  20.  
  21. Double Buffer 
  22.  
  23. Fade 1,0,$F00,$F0,$F,$FFF
  24.  
  25. Repeat 
  26.    X#=X#+1.3
  27.    Y#=Y#+1.7
  28.    G=Sin(X#)*145
  29.    H=Cos(Y#)*113
  30.    Set Bob 1,0,%100000,%11001010
  31.    Bob 1,160+G,128+H,1
  32.    Wait Vbl 
  33. Until 0